home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Utilities / Randomize / gauss next >
Encoding:
Text File  |  1998-10-23  |  405 b   |  16 lines  |  [TEXT/ScoM]
  1. gauss
  2.  
  3. Returns a gaussian distributed random number in the range of -2 to 2. Used by the Brownian noise generator.
  4.  
  5. (init-rnd 0.456)
  6.  
  7. (let ((out nil))
  8.   (dotimes (i 10)
  9.     (push (gauss) out))
  10.   out)
  11. --> (1.216158260119129 -1.15450216395387 2.468771371784495 
  12.  1.2998815399862975 -0.330899693890812 -1.0184222104815892 
  13.  -1.5557545777703017 0.27169424284981014 -0.11454325943515187 
  14.  0.5108481213682996)
  15.  
  16.